home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / burst64.sfx / burst.demo1 (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  1KB  |  53 lines
  1. 1 REM *********************************
  2. 2 REM    SIMPLE TRACK/SECTOR EDITOR
  3. 3 REM    USES BURST MODE OF COURSE!
  4. 4 REM
  5. 5 REM     BY ANDREW E. MILESKI 08/90
  6. 6 REM    "RECURSION" ON QUANTUM LINK
  7. 7 REM
  8. 8 REM      T = TRACK, N = NEW DISK
  9. 9 REM - = LAST SECTOR, + = NEXT SECTOR
  10. 10 REM   E = EDIT SECTOR, W = WRITE IT
  11. 11 REM          J = FOLLOW LINK
  12. 12 REM ********************************
  13. 13 REM PLEASE FORGIVE THE PROGRAMMING
  14. 14 REM STYLE; IT IS A MESS! THIS WAS
  15. 15 REM THROWN TOGETHER QUICKLY AT 2 AM!
  16. 16 REM ********************************
  17. 17 D=PEEK(186)
  18. 18 IFFL=0THENFL=1:LOAD"BURST SUBS.BIN",D,1
  19. 19 POKE650,128:PRINTCHR$(14)CHR$(5)
  20. 20 SY=49192:SS=49152:PRINT"[147]";
  21. 21 POKE53280,6:POKE53281,6
  22. 22 POKESS+1,9:POKESS+2,15
  23. 23 POKESS+7,4:POKESS+6,40
  24. 24 INPUT"                             DEVICE";D:CLOSE15
  25. 25 OPEN15,D,15
  26. 26 SYS(SY+24)
  27. 27 POKESS+5,1
  28. 28 INPUT"                             TRACK, SECTOR ";T1,S1
  29. 29 GOTO47
  30. 30 POKESS+3,T
  31. 31 POKESS+4,S
  32. 32 PRINT"[147]TRACK"T" SECTOR"S:SYS(SY+6)
  33. 33 TS=(PEEK(SS)AND15):IFTS>1THENPRINT"                     DISK ERROR!! "TS
  34. 34 GETA$:IFA$=""THEN34
  35. 35 IFA$="T"THEN28
  36. 36 IFA$="Q"THENPRINT"":CLOSE15:END
  37. 37 IFA$="-"THENS=S-2:IFS=-2THENS=38:T=T-1:IFT<1THENT=80
  38. 38 IFA$="J"THEN46
  39. 39 IFA$="D"THEN24
  40. 40 IFA$="W"THENSYS(SY+12):GOTO33
  41. 41 IFA$="N"THEN26
  42. 42 IFA$="E"THENINPUT"EDIT SECTOR - PRESS RETURN WHEN DONE  ";A$:GOTO34
  43. 43 IFT>80THENT=1
  44. 44 S=S+1:IFS>39THENS=0:T=T+1
  45. 45 GOTO30
  46. 46 T1=PEEK(1064):S1=PEEK(1065)
  47. 47 F=0
  48. 48 IF(T1>0)AND(T1<81)THENT2=T1:F=F+1
  49. 49 IF(S1>-1)AND(S1<40)THENS2=S1:F=F+1
  50. 50 IFF<>2THEN34
  51. 51 T=T2:S=S2
  52. 52 GOTO30
  53.